Private Sub UserForm_Initialize()

    Dim  As Range

    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))

    lst.List = .Value
    img.SpecialEffect = fmSpecialEffectSunken

End Sub
